home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / killth1a / intro.frm (.txt) < prev    next >
Visual Basic Form  |  1999-09-16  |  4KB  |  113 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BackColor       =   &H0042FF42&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   6030
  6.    ClientLeft      =   255
  7.    ClientTop       =   1410
  8.    ClientWidth     =   4470
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Icon            =   "Intro.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    Picture         =   "Intro.frx":000C
  17.    ScaleHeight     =   6030
  18.    ScaleWidth      =   4470
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   2  'CenterScreen
  21.    Begin VB.Timer TmrIntro 
  22.       Enabled         =   0   'False
  23.       Interval        =   1000
  24.       Left            =   0
  25.       Top             =   3960
  26.    End
  27.    Begin VB.TextBox Text1 
  28.       BackColor       =   &H0042FF42&
  29.       Enabled         =   0   'False
  30.       Height          =   1575
  31.       Left            =   0
  32.       MultiLine       =   -1  'True
  33.       TabIndex        =   0
  34.       Top             =   4440
  35.       Width           =   4455
  36.    End
  37.    Begin VB.Label Label1 
  38.       BackColor       =   &H0042FF42&
  39.       Caption         =   "Version 1.0"
  40.       Height          =   255
  41.       Left            =   3600
  42.       TabIndex        =   1
  43.       Top             =   4200
  44.       Width           =   855
  45.    End
  46. Attribute VB_Name = "frmSplash"
  47. Attribute VB_GlobalNameSpace = False
  48. Attribute VB_Creatable = False
  49. Attribute VB_PredeclaredId = True
  50. Attribute VB_Exposed = False
  51. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  52. 'Exit the game always by pressing F12 !!!!!
  53. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  54. '************************************************************
  55. '   My original language is dutch, so for your understanding:
  56. '   Kogel means bullet
  57. '   Gif means posion
  58. '   GifSpuit is the spitting of posion
  59. '   This is just for you to better understand the codes
  60. '   Enjoy the game
  61. '   If you know new features, add them and put them online
  62. '   My email address is agrisman@hotmail.com
  63. '************************************************************
  64. Dim s
  65. Dim Countdown As Integer
  66. Const Music = "intro.wav"
  67. Private Sub Form_Click()
  68. 'stops music
  69. s = mciSendString("close " & App.Path & "\snd\" & Music, 0&, 0, 0)
  70. Load frmspel
  71. frmspel.Show
  72. Unload Me
  73. End Sub
  74. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  75. If KeyCode = vbKeyF5 Then
  76. MsgBox "Click on the screen to go to the game, then press F5"
  77. End If
  78. If KeyCode = vbKeyF1 Then
  79. MsgBox "Click on the screen to go to the game, then press F1"
  80. End If
  81. End Sub
  82. Private Sub Form_Load()
  83. TmrIntro.Enabled = True
  84. Countdown = 0
  85. 'plays music
  86. s = mciSendString("play " & App.Path & "\snd\" & Music, 0&, 0, 0)
  87. 'displays text
  88. Text1.text = Text1.text + "       Kill The Alien by Agrisman" + Chr(13) + Chr(10)
  89. Text1.text = Text1.text + "To win the game you have to kill 20 aliens." + Chr(13) + Chr(10)
  90. Text1.text = Text1.text + "To lose it you have to be killed only once." + Chr(13) + Chr(10)
  91. Text1.text = Text1.text + "You are in the robot at the bottom of the screen." + Chr(13) + Chr(10)
  92. Text1.text = Text1.text + "The alien is that little guy at the top of your screen." + Chr(13) + Chr(10)
  93. Text1.text = Text1.text + "For more information press F1 during the game." + Chr(13) + Chr(10)
  94. Text1.text = Text1.text + "Press F5 to start the game or mail at agrisman@hotmail.com ." + Chr(13) + Chr(10)
  95. End Sub
  96. Private Sub Text1_Click()
  97. 'stops music
  98. s = mciSendString("close " & App.Path & "\snd\" & Music, 0&, 0, 0)
  99. Load frmspel
  100. frmspel.Show
  101. Unload Me
  102. End Sub
  103. Private Sub TmrIntro_Timer()
  104. 'after 6 sec. the splashscreen unloads and the
  105. 'gamescreen starts
  106. If Countdown = 6 Then
  107. Load frmspel
  108. frmspel.Show
  109. Unload Me
  110. End If
  111. Countdown = Countdown + 1
  112. End Sub
  113.